<!--#INCLUDE FILE="programmer.inc"-->
<!--#INCLUDE FILE="conn.asp"-->
<!-- #include file="comSub.asp" -->
<!-- #include file="function.asp" -->
<script src=inc/js1.js></script>

<%
call stylefile()

dim boardid2
boardid2=Trim(Request.QueryString("boardid"))
Dim keyWord2
keyWord2=replaceChr32_2(Trim(Request.QueryString("keyWord")))
keyword2=Replace(Replace(keyword2,"<",""),">","")

%>

<html>
<head>
<%call MetaKeyw()%>
<%call MetaDesc()%>
<title>ϸѯ  <%=request.querystring("keyWord")%></title>
<SCRIPT language="JavaScript">
             function set_onchange() {
                   if (formprogress.act.selectedIndex == 10)
                   {
                            Reverse();
                            var ret;
                            var ret = confirm("ؾ棡ȷťɾȫҳȫ\n( ̶̶̶ܹͷʾ)ز");
                            if(ret!=false)
                             {
                                    formprogress.goto.click();
                             }
                             else
                             {
                                    ReSet();
                                    document.formprogress.act.value="";
                             }
                    }
                    if (formprogress.act.selectedIndex == 11)
                    {
                            ReSet();
                    }
                    if (formprogress.act.selectedIndex == 12)
                    {
                            var ret;
                            var ret = confirm("ע⣺ֻѡһƪóɰͷʾ");
                            if(ret!=false)
                             {
                                    formprogress.goto.click();
                             }
                             else
                             {
                                    ReSet();
                                    document.formprogress.act.value="";
                             }
                     }
                    if (formprogress.act.selectedIndex == 13)
                    {
                            var ret;
                            var ret = confirm("ȡͷʾֱӵȷťҪѡӡ");
                            if(ret!=false)
                             {
                                    formprogress.goto.click();
                             }
                     }           
                    if (formprogress.act.selectedIndex == 14){
                           formprogress.HiddenSelect.style.display="inline";
                    }
                    else{
                           formprogress.HiddenSelect.style.display="none";
                    }       
             }

            function Reverse(){
                    if(document.formprogress.client_Id !=null)
                    {
                           var e = document.formprogress.client_Id;
                          if(!e.checked)
                          {
                                 document.formprogress.client_Id.checked = true;
                           }
                          var idList = document.formprogress;
                          for(var i=0;i<idList.client_Id.length;i++)
                          {
                               var e = document.formprogress.client_Id[i];
                               if(!e.checked)
                               {
                                     document.formprogress.client_Id[i].checked = true;
                               }
                           }
                     }
            }

            function ReSet(){
                  if(document.formprogress.client_Id !=null)
                  {
                       var idList = document.formprogress;
                       document.formprogress.client_Id.checked = false;
                       var idList = document.formprogress;
                       for(var i=0;i<idList.client_Id.length;i++)
                       {
                            document.formprogress.client_Id[i].checked = false;
                       }
                  }
            }
</SCRIPT>

</HEAD>
<BODY topmargin=0>

<SCRIPT language="JavaScript">
      var w2="";
      function wordcolorvalue(){
            var t,i,k,s,wordcolor;
            s=16;
            t=new Array("0","1","2","3","4","5","6","7","8","9","a","b","c","d","e","f");
            for(i=0;i<=5;i++)
            {
                  k=Math.floor((Math.random()*s));
                  wordcolor=t[k];
                  w2+=wordcolor;
             }
             w2="#" + w2;
       }

       var temp_r=0;
       var temp_i=1;
       var temp_j=4;
       var temp_k=0;
       function flash_sms(){
             temp_r++;
             temp_k++;
             if (temp_r==8)
             { 
                    w2="";
                    wordcolorvalue();
             }
             if (temp_k<=4)
             {
                   for (i=1;i<=4;i++){
                        if (i==temp_i) 
                        {
                                temp_str="red";
                                eval("a"+i+".style.color='"+temp_str+"';");
                        }
                        else
                        {
                               temp_str=w2;
                              eval("a"+i+".style.color='"+temp_str+"';");
                         }
                   }
                   temp_i++;
                   if (temp_i>4) temp_i=1;
             }
             else if (temp_k>4)
             {
                   for (j=4;j>=1;j--)
                  {
                        if (j==temp_j) 
                        {
                               temp_str="red";
                               eval("a"+j+".style.color='"+temp_str+"';");
                        }
                        else
                        {
                              temp_str=w2;
                             eval("a"+j+".style.color='"+temp_str+"';");
                         }
                   }
                   temp_j--;
                   if (temp_j<1) temp_j=4;
             }
             if (temp_k>7) temp_k=0;
             if (temp_r>7) temp_r=0;
      }
     setInterval("flash_sms()",500);
</SCRIPT>

<table border=0 width=100% cellspacing=0 cellpadding=1>
         <tr>
                  <td width=100 height="67" bgcolor=greenyellow>
                          <img border="0" src="images/tushan2.gif" width="100" height="65" align=middle vspace=0 hspace=0>
                  </td>
                  <td rowspan=2 bgcolor=dodgerblue>
                           <a href=advertisement/boardad/top.htm target="new">
                           <%
                                 set objad=server.createobject("mswc.adrotator")
                                 response.write objad.getadvertisement("advertisement/boardad/topadrot.txt")
                                 set objad=nothing
                            %>
                           </a>
                  </td>
         </tr>
         <tr>
                  <td height="6" bgcolor=dodgerblue>
                  </td>
         </tr>
</table>
<CENTER>
<DIV id="Cmenu1" onmouseover="showMenu(Cmenu1)" onmouseout="hideMenu(Cmenu1)" style="cursor:hand;visibility:hidden;position:absolute;left:10;top:130;">
         <%call CNavigation_BM()%>
</DIV>
<DIV id="Bmenu1" onmouseover="showMenu(Bmenu1)" onmouseout="hideMenu(Bmenu1)" style="cursor:hand;visibility:hidden;position:absolute;left:120;top:130;">
         <%call BNavigation_BM(Communityid_B_boardid(Request.QueryString("boardid")))%>
</DIV>
<table border=0 width=970>
        <tr>
                <td align=right>
                           <span style="font-size:14"><b><%=session("tslt_username")%></b></span>
                           <span style="font-size:20">
                           <%if (session("tslt_useridentity")=1 or session("tslt_useridentity")=2) then%>
                                   <A class=td8 id="TopRight_mune1" onmouseover="ShowDivMenu(1)" href="admin_index/ad_index.asp"></A>
                           <%elseif board_BZUser(Request.QueryString("boardid")) then%>
                                   <A class=td8 id="TopRight_mune1" onmouseover="ShowDivMenu(1)"></A>
                           <%end if%>
                          <%if session("tslt_username")<>"" then%>
                                     <%if session("tslt_openFrameChat")=True then%>
                                               <A class=a2 href="javascript:parent.bottomFrame.location.href='chat/exit.asp';parent.location.href='logout.asp';"><font color=red>ע¼</font></A>
                                     <%else%>
                                               <A class=a2 href="logout.asp"><font color=red>ע¼</font></A>
                                     <%end if%>
                                    <%if isBoardReadonly(Request.QueryString("boardid"))=true then%>
                                              <%if session("tslt_useridentity")=1 or session("tslt_useridentity")=2 then%>
                                                       <a class=a2 title="(¼)" href="fbly.asp?boardid=<%=Request.QueryString("boardid")%>&Page=<%=Request.QueryString("Page")%>"><b><span id=a1></span><span id=a2></span><span id=a3></span><span id=a4></span></b></A>
                                              <%else%>
                                                        <p style="DISPLAY: none"><span id=a1></span><span id=a2></span><span id=a3></span><span id=a4></span></p>
                                              <%end if%>
                                     <%else%>
                                              <a class=a2 title="(¼)" href="fbly.asp?boardid=<%=Request.QueryString("boardid")%>&Page=<%=Request.QueryString("Page")%>"><b><span id=a1></span><span id=a2></span><span id=a3></span><span id=a4></span></b></A>
                                     <%end if%>
                          <%else%>
                                     <A class=a2 href="userlogin.asp">¼</A>&nbsp;<A class=a2 href="zc.asp">ע</A>&nbsp;<a class=a2 title="(¼)" href="fbly.asp?boardid=<%=Request.QueryString("boardid")%>&Page=<%=Request.QueryString("Page")%>"><b><span id=a1></span><span id=a2></span><span id=a3></span><span id=a4></span></b></A>
                          <%end if%>
                          <%if request("jinghua")="" then%> 
                                       <img src="images/jh.gif" width="17" height="17" border=0><a class=a2 href=board.asp?jinghua=true&boardid=<%=request("boardid")%> title=""></a>
                          <%end if%>
                          <A class=td8 id="TopRight_mune2" onmouseover="ShowDivMenu(2)">ܲ˵</A>
                          <%if session("tslt_username")<>"" then%>
                                       <a title="´" target="_blank" href=sitenote.asp?boardtositenote=ok&boardid=<%=Request.QueryString("boardid")%>><img src="images/zndx.gif" width="17" height="17" border=0></a><a class=a2 href=sitenote.asp?boardtositenote=ok&boardid=<%=Request.QueryString("boardid")%>>վڶ</a>
                                       <%if request("article")="" then%> 
                                                    <a title="´" target="_blank" href=collectionA.asp><img src="images/scj.gif" width="17" height="17" border=0></a><a class=a2 href=collectionA.asp title="ղ">ղؼ</a>
                                       <%end if%>
                          <%end if%>
                          </span>
                           <DIV id="div_mune1" align="right" style="display:none;" onmouseover="ShowDivMenu(1)" onmouseout="HideDivMenu(1)">
                                    <table class="td8" border=0 cellspacing=0 cellpadding=0 bordercolordark='#000000' bordercolorlight='#000000'>
                                             <tr>
                                                     <td class=font3>
                                                             <%if request("secret")="" then%> 
                                                                      <img src="images/qiaoqiaohua.gif" width="17" height="17" border=0><a class=a4 href=board.asp?secret=true&boardid=<%=request("boardid")%>><font color=bbbbbb class=font3>Ļ</font></a>    
                                                              <%end if%>
                                                              <%if request("lockarticle")="" then%> 
                                                                      <img src="images/lock.gif" width="17" height="17" border=0><a class=a4 href=board.asp?lockarticle=true&boardid=<%=request("boardid")%> title=",ͨûȨ"></a>
                                                              <%end if%>
                                                              <%if request("transmit")="" then%> 
                                                                      <img src="images/transmit.gif" width="17" height="17" border=0><a class=a4 href=board.asp?transmit=true&boardid=<%=request("boardid")%> title="ת">ת</a>
                                                              <%end if%>
                                                              <%if request("jinghua")="" then%> 
                                                                      <img src="images/jh.gif" width="17" height="17" border=0><a class=a4 href=board.asp?jinghua=true&boardid=<%=request("boardid")%> title=""></a>
                                                              <%end if%>
			         &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                                                              <%if request("secret")<>"" or request("lockarticle")<>"" or request("transmit")<>"" then%>
				   &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
                                                              <%end if%>
                                                     </td>
                                             </tr>
                                    </table>
                           </DIV>
                            <DIV id="div_mune2" align="right" style="display:none;" onmouseover="ShowDivMenu(2)" onmouseout="HideDivMenu(2)">
                                 <table class="td8" border="0" cellspacing="0" cellpadding="0" bordercolordark='#000000' bordercolorlight='#000000'>
                                     <tr>
                                          <td class=font3>
		              <img src="images/wyl.gif" width="17" height="17" border=0><A class=a4 target="_blank" href="wyl/wy.asp">¼</A>
                                                 <%If session("tslt_openFrameChat")="" then%>
                                                               <img src="images/lts.gif" width="17" height="17" border=0><A class=a4 href="index_Frame.asp?currentPU=<%=currentPageUrl%>"></A>
                                                  <%else%>
                                                               <img src="images/lts.gif" width="17" height="17" border=0><A class=a4 href="javascript:parent.bottomFrame.location.href='chat/exit.asp';parent.location.href=self.location.href;">ر</A>
                                                  <%End if%>
                                                  &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
                                           </td>
                                     </tr>
                                 </table>
                            </DIV>
                </td>
        </tr>
        <tr>
                <td align="left" onmouseout="HideDivMenu2(2)">
                        <span style="font-size:14">
                        <img src=images/home.gif><a class=a1 onmouseover="showMenu(Cmenu1)" href=index.asp>̳ҳ</a>
                        <b></b>&nbsp;<a class=a1 onmouseover="showMenu(Bmenu1)" href=community.asp?Communityid=<%=Communityid_B_boardid(request("boardid"))%>><%=Communityname(Communityid_B_boardid(request("boardid")))%></a>
                        <b></b>&nbsp;<a class=a1 href=board.asp?boardid=<%=request("boardid")%>><%=boardname(request("boardid"))%></a>&nbsp;<b></b>&nbsp;ϸѯ
                        </span>
                </td>
        </tr>
</table>
<hr width=955>

<%
dim rs
dim sql
sql="select * from board where boardid="&request("boardid")&" order by boardsort DESC"
set rs=conn.execute(sql)
         if rs.eof then response.write "<SCRIPT language=Javascript>passwords(promptInfo_board(0))</SCRIPT>"
                if rs("boardhidden")=true then
                        if session("tslt_useridentity")<>1 and session("tslt_useridentity")<>2 then
                                Response.redirect  ("error.asp?info=<font color='#000070' size=4>Ƿ</font>")
                                Response.End
                        end if
                end If
                if rs("authentication")=true Then
                        call authenticationPass()
                end If
                if rs("autSel")=true then
                        call autSelPass()
                end If
                dim boardreadonly
                boardreadonly=rs("boardreadonly")
%>
                 <%call BoardTop_bulletin(rs("boardid"))%>

                 <table width=930 border="0" cellpadding="0" cellspacing="0">
                        <tr>
                               <td align="left" valign="top" width=50>
                                        <img src="style/<%=session("tslt_stylefolder")%>/shutiao.gif" width=50 oncontextmenu="return false">
                                </td>
                                <td valign="top" width="440">
                                        <span style="position: absolute; z-index: -1"><img src="style/<%=session("tslt_stylefolder")%>/focus_j2.gif" height=30 width=440></span>
                                        <p style="font-family:Ĳ;font-size:30"><%=rs("boardname")%></p>
                                <td valign="top" width="440">
                                        <span style="position: absolute; z-index: -1"><img src="style/<%=session("tslt_stylefolder")%>/focus_j2.gif" height=30 width=440></span>
                                        <p align=right style="font-family:;font-size:25">
<%
                                         call boardmanageuser(boardid2)
		     If isCEBM() And boardmanageuser_yes(rs("boardid")) Then Response.write "<font color='red'>Ƹ</font>"
%> 
                                       </p>
                                </td>
                       </tr>
                 </table>

                 <table width=930 border="0" cellpadding="0" cellspacing="0">
                       <tr>
                               <td width="25%" style="word-break:break-all">
                                      <%if not rs("boardid")="" then %>
                                                 <%if rs("boardimg")="" then%>
                                                          &nbsp;&nbsp;<font size=5 face="" color=<%=rs("wordcolor")%>><%=rs("boardname")%></font>
                                                  <%else%>
                                                           &nbsp;&nbsp;<img align=absmiddle name="bdimg<%=rs("boardid")%>" id="bdimg<%=rs("boardid")%>" src="<%=rs("boardimg")%>" width=160 height=32 border="0" hspace=1 vspace=2">
                                                  <%end if%>
                                       <%end if %>
                                </td>
                                <td>
                                         <font size=2>
                                         <img src="images/shuye2.gif" align="absbottom" width=30 height=15>
                                         <%if rs("boardhidden") then response.write "<font color=red>(ذ)</font>" end if%>
                                         <%if rs("boardreadonly") then response.write "<font color=red>(ֻ)</font>" end if%>
                                         <%if rs("authentication") And rs("autSel")=False then response.write "<font color=red>(֤)</font>" end if%>
                                         <%if rs("autSel") then response.write "<font color=red>(ר)</font>" end if%>
                                         <%=rs("boarddetail")%>
                                         <br>
										 <span style="font-size:12">
										 [/ظ<%=boardAT(rs("boardid"))%>/<%=boardRAT(rs("boardid"))%>&nbsp;&nbsp;&nbsp;ռÿռ䣺<%=boardARSize(boardid2)%>]
                                         </span>
                                         </font>
                                </td>
                       </tr>
                </table>

<%
rs.close
set rs=nothing 
%>

<form action="progress.asp" method="post" id="form2" name=formprogress>
                <input type="hidden" name="isBPartQuer" value="yes">
                <input type="hidden" name="boardidhidden" value=<%=request("boardid")%>>

                <%if request("Page")<>"" then%>
                      <input type="hidden" name="BPPagehidden" value=<%=request("Page")%>>
                <%else%>
                      <input type="hidden" name="BPPagehidden" value="">
                <%end if%>
                <input type="hidden" name="BPKeywordhidden" value="<%=keyWord2%>">
                <table align=center width=900 border="0" cellspacing="1" cellpadding="0" >
                       <tr>
                            <td align="center" height="15" colspan="3"><font color="#FF0000">&nbsp;&nbsp;&nbsp; </font></td>
                            <td align="center" height="15" width="11%"><font color="#FF0000"></font></td>
                            <td align="center" height="15" width="8%"><font color="#FF0000">С</font></td>
                            <td align="center" height="15" width="11%"><font color="#FF0000">ظ/</font></td>
                            <td align="center" height="15" width="24%"><font color="#FF0000"></font></td>
                            <%if (session("tslt_useridentity")=1 or session("tslt_useridentity")=2 or board_BZUser(request("boardid"))) then%>
                                 <td align="center" height="15" width="5%" bordercolordark="#C0C0C0"><font color="#FF0000"></font></td>
                            <%end if%>
                       </tr>
                       <%Call ShowAList()%>
                </table>
</form>

<br><br>
<a class=a1 href=javascript:history.go(-1)><b>ǰҳ</b></a>
<br>

<%
If DemoLinkYesNo() Then 
    Call demoLink()
End If 
%>

<table align=center width="100%">
        <tr><td> 
                     <!--#INCLUDE file="bottom.asp"-->
        </td></tr>
</table>  
</CENTER>
</BODY>
</HTML>

<%
Call conn_Nothing()

Sub ShowAList()
    dim boardid2
    boardid2=Trim(Request.QueryString("boardid"))
    Dim keyWord2
    keyWord2=replaceChr32_2(Trim(Request.QueryString("keyWord")))
    If replyKeyword(Boardid2,Keyword2)<>"" Then
       Dim replyKeyword2
       replyKeyword2 = replyKeyword(Boardid2,Keyword2)
       Dim cArray
       cArray = Split(replyKeyword2,"|")
	Else
	   Response.Write "<tr><td colspan=7><center><br><br><b><font color=brown>ǰûҪҵļ¼!</font></b>&nbsp;&nbsp;<a href=javascript:history.go(-1)><b>ǰҳ</b></a><br><br>"
	   Exit Sub 
    End If 

       Dim tempCount
       tempCount=0
       Dim currentUBound
       If Request("page")="" or Request("page")=1 Then 
           currentUBound=UBound(cArray)
       Else 
           currentUBound=UBound(cArray)-((Request("page")-1)*showlistok())
       End If 

       Dim i,articleId
       For i = currentUBound To 0 Step-1
           articleId=cArray(i)
           If articleId <> "" Then
              if islockarticle(cint(articleId)) =True then 
                 if (session("tslt_useridentity")=1 or session("tslt_useridentity")=2 or board_BZUser(isboardid(cint(articleId)))) then
                     Call showArticleListField(cint(articleId))  
                          tempCount=tempCount+1
                          if tempCount=showlistok() then
                              Exit For
                          end if												   
                  end if
              elseif isDustbin(cint(articleId)) =True then 
                 if (session("tslt_useridentity")=1 or session("tslt_useridentity")=2) then
                     Call showArticleListField(cint(articleId))  
                          tempCount=tempCount+1
                          if tempCount=showlistok() then
                              Exit For
                          end if												   
                  end If
              else
                  Call showArticleListField(cint(articleId))
                       tempCount=tempCount+1
                       if tempCount=showlistok() then
                           Exit For
                       end if
	           End If 
           End If 
       Next

       Response.Write "<tr><td colspan=8>"
%>
                        <%if (session("tslt_useridentity")=1 or session("tslt_useridentity")=2 or board_BZUser(request("boardid"))) then%>
                             <div align="right">
<%
                             if session("tslt_useridentity")=1 or session("tslt_useridentity")=2 or boardmanageuser2(request("boardid")) then
%>
                                     <b>Ƹ:</b><input name="chk_CEBM" type="checkbox" value="yes" <%If isCEBM() Then%>checked  style="background-color:red;"<%End If%>>
                                     &nbsp;
                                     <b>:</b>
                                     <input type=text size=4 name= boardmanageusertext onmouseup="alert('Ҫĳûǰ? û  ȷ  ť');">
                                     <b>:</b>
									 <input type=text size=4 name= boardmanageusertext2 onmouseup="alert('Ҫĳ? û  ȷ  ť');">
                             <%end if%>
                             &nbsp;&nbsp;
                             <select name=act class=input2 LANGUAGE=javascript onchange="return set_onchange()">
                                    <option value="0"></option>
                                    <option value="1">ɾ</option>
                                    <option value="2">Ϊ</option>        
                                    <option value="3">ȡ</option>
                                    <option value="4">̶</option>
                                    <option value="5">ȡ̶</option>
                                    <option value="6"></option>  
                                    <option value="7">ȡ</option>
                                    <option value="8">תԱ</option>
                                    <option value="9">ȡת</option>
                                    <option value="10">ȫ</option>
                                    <option value="11">ȡȫѡ</option>  
                                    <option value="12">ðͷʾ</option>
                                    <option value="13">ȡͷʾ</option>
                                    <option value="14">ֲ</option>
                                    <%if (session("tslt_useridentity")=1 or session("tslt_useridentity")=2) then%>
                                             <option value="15">̶</option>
                                             <option value="16">ȡ̶</option>
                                             <option value="17">̶ܹ</option>
                                             <option value="18">ȡ̶ܹ</option>
                                    <%end if%>
                                </select>

                             <select size=1 name=HiddenSelect style="display:none">
                                     <%call SelectBoardName()%>
                             </select>

                             <input name="goto" type=submit class=input3 id="goto2" value="ȷ">
                             </div>
                       <%end if%>
                </form>
<%
       Call pages(cArray)
       Response.Write "</td></tr>"
End Sub 

Function replyKeyword(isBoardid2,isKeyword2) 
    Dim RS,SQL
    If (session("tslt_useridentity")=1 Or session("tslt_useridentity")=2 Or board_BZUser(boardid2)) Then
        SQL = "SELECT id FROM article where boardid="&isBoardid2&" Order By lastReplyTime DESC"    
    Else
        SQL = "SELECT id FROM article where boardid="&isBoardid2&" and lockarticle=false Order By lastReplyTime DESC"                       
	End If 
	Set RS = Server.CreateObject("ADODB.Recordset")
    RS.Open SQL, Conn, 1,1
		Dim haeKeyword
        haeKeyword=""
        DO WHILE NOT RS.EOF
		     Dim AId
             AId=RS("id")
			 If isKeyword2<>"" Then	 
                 Replysql="select id from reply where Cstr(reply_id)='"&AId&"' and ((reply_subject like '%"& isKeyword2 &"%') or (reply_content like '%"& isKeyword2 &"%'))"
             End If 
             Dim ReplyRS
             Set ReplyRS = Server.CreateObject("ADODB.Recordset")	
             Replyrs.open Replysql,conn,1,1
                 If Not ReplyRS.Eof Then
                     haeKeyword=haeKeyword& "|" &AId
				 End If 
             Replyrs.close 
             Set Replyrs=Nothing  
             RS.MoveNext 
        Loop
        replyKeyword=haeKeyword
    RS.close 
    Set RS=Nothing 
End Function

Sub showArticleListField(articleId)
       dim objRS,objSQL        
       objSQL="SELECT * FROM article where id="&articleId
       set objRS=conn.execute(objSQL)
               If objRS.Eof And objRS.Bof Then
                   Exit Sub
               end if
               Response.Write "<TR height='20' class=td1 onmouseover=sbar(this) onmouseout=cbar(this)>"
               Response.Write "<td class='titleBottomBorder' align='left' width='3%' valign='baseline'>"
               if request("page")<>"" Then
                      Response.Write "<a class=a2 href=11.asp?id=" & objRS("id") & "&page=" &request("page")& "&keyword=" &keyword2& "&BParticularQqueryPage=yes target='_blank'>" 
               else
                      Response.Write "<a class=a2 href=11.asp?id=" & objRS("id") & "&keyword=" &keyword2& "&BParticularQqueryPage=yes target='_blank'>" 
               end If
               if objRS("adminindex")=true then 
                     Response.Write"<img src='images/top1.gif' alt='̶ܹ'"
               elseif objRS("topfirst")=true then 
                     Response.Write"<img src='images/top2.gif' alt='̶'"
               elseif objRS("top1")=true then 
                     Response.Write"<img src='images/top3.gif' alt='̶'"
               elseif objRS("jinghua") then 
                     Response.Write"<img src='images/jh.gif' alt=''"
               elseif objRS("board_bulletin") then 
                     Response.Write"<img src='images/star.GIF' alt='ͷʾ'"
                elseif objRS("lockarticle") Then
                     if (session("tslt_useridentity")=1 or session("tslt_useridentity")=2 or board_BZUser(objRS("boardid"))) then
                         Response.Write"<img src='images/lock.gif' alt=''"
		             Else
                         Response.Write"<img src='images/tiezi.gif' alt='´'"
		             End If 
               elseif objRS("transmit") then
                     If (session("tslt_useridentity")=1 Or session("tslt_useridentity")=2 Or board_BZUser(objRS("boardid"))) Then
                         Response.Write"<img src='images/transmit.gif' alt='ת'"					 
		             Else
                         Response.Write"<img src='images/tiezi.gif' alt='´'"
		             End If 
               elseif objRS("dustbin") then 
                     Response.Write"<img src='images/dustbin.GIF' alt=''"
               else
                      Response.Write"<img src='images/tiezi.gif' alt='´'"
               end If
               Response.Write"' border=0>&nbsp;"
               Response.Write"</a>"
               Response.Write "</td>"
               Response.Write "<td class='titleBottomBorder' width='1%' align='left' valign='baseline'>"
               if replyList2(objRS("id")) then      
                   Response.Write "<img src='images/plus.gif' alt='ظ' id='Tag"& objRS("id") &"' style='cursor:hand;' onclick='turnit(Reply"& objRS("id") &" ,Tag"& objRS("id") &");showReplyPage("&objRS("id")&","&objRS("AllReplySize")&","&objRS("id")&");'>"
               else
                   Response.Write "<img src='images/minus.gif' alt='޻ظ' id='Tag"& objRS("id") &"' style='cursor:hand;' onclick='turnit(Reply"& objRS("id") &" ,Tag"& objRS("id") &");showReplyPage("&objRS("id")&","&objRS("AllReplySize")&","&objRS("id")&");'>"
               end if
               Response.Write "</td>"
               Response.Write "<td class='titleBottomBorder' align='left'>"
               if request("page")<>"" Then
                      Response.Write "&nbsp;<a class=a2 href=11.asp?id=" & objRS("id") & "&page=" &request("page")& "&keyword=" &keyword2&"&BParticularQqueryPage=yes title='"& objRS("subject") &"&#13;&#10;"&objRS("firstAddTime")&"'><font size=4><b>" 
               else
                      Response.Write "&nbsp;<a class=a2 href=11.asp?id=" & objRS("id") & "&keyword=" &keyword2&"&BParticularQqueryPage=yes title='"& objRS("subject") &"&#13;&#10;"&objRS("firstAddTime")&"'><font size=4><b>" 
               end If    
               if objRS("secret") then response.write"<font color='#bbbbbb'>" 
               if len(objRS("subject"))>17 then
                      Response.write (left(objRS("subject"),17))&"..." 
               else 
                      Response.write objRS("subject")&""
               end if 
               Response.Write"</b></font></a>"
               Response.Write "</td>"
               Response.Write "<td class='titleBottomBorder' align='right'><span class=fontsize>"
               if objRS("user")<>"" then
                      call UserInfoLink(objRS("user"))
               else
                      Response.Write "(ο)"
               end if
               Response.Write "</span>"
               Response.Write "</td>"
               Response.Write "<td class='titleBottomBorder' align='right'><span class=fontsize>" &objRS("contentsize2")& "/" &FileContentSize2(objRS("AllReplySize"))& "</span></td>"
               Response.Write "<td class='titleBottomBorder' align='center'><span class=fontsize>"&objRS("AllReplyCount")& "/" &objRS("ReadCount")&"</span></td>"
               if NewRH(objRS("ID"))<>"" then       
                      Response.Write "<td class='titleBottomBorder' align='left'><span class=fontsize>" &objRS("lastReplyTime")&"<a title=' "&NewRH(objRS("ID"))&" '>" &(left(NewRH(objRS("ID")),6))&"</a></span></td>"
               else
                      Response.Write "<td class='titleBottomBorder' align='left'><span class=fontsize>" &objRS("lastReplyTime")   
                      if replyList2(objRS("id"))=true then    
                           Response.Write "(ο)"
                      end if
                      Response.Write "</span></td>"
               end if
               if session("tslt_username")<>"" then
                    Response.Write "<td class='titleBottomBorder' align='center'><input type='checkbox' value='on' name="&objRS("id")&" id='client_Id'></td>"
               end if
               Response.Write "</TR>"
               Response.Write "<TR>"
               Response.Write "<td colspan=8 id='Reply"& objRS("id") &"' style='DISPLAY: none'>"
               Response.Write "<b>ȡС</b>"
               Response.Write "</td>"
               Response.Write "</TR>"
        objRS.close
        set objRS=nothing 
End Sub

sub pages(aaa)
          Dim cArray
          cArray=aaa
          Dim Page      
          Page = Request("Page")
          if request("page")="" then
                 page=1
         else
                 page=cint(request("page"))
         end if
        Dim totalPage
        if (UBound(cArray) mod showlistok())=0 then
               totalPage=(UBound(cArray)/showlistok())
        else
               totalPage=(UBound(cArray)\showlistok())+1
        end if
        if UBound(cArray)<>0 then
             Dim currId1,currId2
             if totalPage>10 then 
                   if Page mod 10=0 then
                          currId1=Page
                          currId2=Page-9
                   else
                          if totalPage mod 10=0 then 
                                 currId1=int(Page/10)*10+10
                          else 
                                  if int(Page/10)=int(totalPage/10) then currId1=(totalPage/10)*10 else currId1=int(Page/10)*10+10
                           end if
                           id2=int(Page/10)*10+1
                    end if
             else 
                    currId1=totalPage mod 10
                    currId2=int(totalPage/10)*10+1
             end if
%>
             <table align=left>
                   <tr><td>
<%
                            if totalPage>1 Then
                                   If Page=totalPage or Page<>1 Then 
                                           Dim PrwePage
                                           PrwePage=Page-1
                                           Response.Write "<A class=a1 HREF=BPartQuer.asp?boardid="&boardid2&"&Page="&PrwePage&"&keyword="&keyword2
                                           Response.Write "><font size=4>һҳ</font></A>  "              
                                    End If  
                             End If          
%>
                    </td></tr>
             </table>
             <table border="0"  align="left">
                    <tr><td>
                          <FONT face=webdings size=2>
                          <%if Page=1 then%>
                                     <span style="color: #FF0000">9</span>
                          <%else%>
                                     <a class=a2 href="BPartQuer.asp?boardid=<%=boardid2%>&Page=1<%="&keyword="&keyword2%>">9</a>
                          <%end if%>
                          <%if Page>10 then%>
                                      <a class=a2 href="BPartQuer.asp?boardid=<%=boardid2%>&Page=<%=currId2-1&"&keyword="&keyword2%>">7</a>
                          <%end if%>
                          </FONT>
                          <strong>
<%
                          Dim i
                          for i=currId2 to currId1
                                 if Page=i then 
	                       Response.Write("<font color=red size=4>"&i&"</font>  ")
                                 else
%>
                                         <FONT size=2>
                                         <a class=a2 href="BPartQuer.asp?boardid=<%=boardid2%>&Page=<%=i&"&keyword="&keyword2%>">
                                                <%Response.Write i%>
                                         </a>
                                         </FONT>
<%
                                  end if
                                  Response.Write " "
                          next
%>
                          </strong>
                          <FONT face=webdings size=2>
                          <%if currId1<totalPage then%>
                                       <a class=a2 href="BPartQuer.asp?boardid=<%=boardid2%>&Page=<%=currId1+1&"&keyword="&keyword2%>">8</a>
                          <%end if%>
                          </FONT> 
                          <FONT face=webdings size=2>
                          <%if Page=totalPage then%>
                                       <span style="color: #FF0000">:</span>
                           <%else%>
                                        <a class=a2 href="BPartQuer.asp?boardid=<%=boardid2%>&Page=<%=totalPage&"&keyword="&keyword2%>">:</a>
                            <%end if%>
                            </FONT>
                    </td></tr>
             </table>
             <table align=left>
                    <tr><td>
<% 
                            if totalPage>1 Then
                                    If page=1 or totalPage>Page Then
                                            NextPage=Page+1
                                             Response.Write "<A  class=a1 HREF=BPartQuer.asp?boardid="&currId2&"&Page="&NextPage&"&keyword="&keyword2
                                             Response.Write "><font size=4>һҳ</font></A>"
                                     End If
                              End If
%>
                     </td></tr>
             </table>

             <table align=right>
                     <tr><td>
<%
                              if Page>totalPage then
                                     PageNo=totalPage
                              end if
                              Response.Write "<font size=2>ҳΣ<font color=red><b>"& Page &"</b></font>/<b>"& totalPage &"</b>ҳ ,<b>"& UBound(cArray) &"</b></font>"
                              Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;"
%>
                     </td></tr>
              </table>
<% 
       end if
end sub

function isDustbin(aid)
        isDustbin=false
       dim rs
       set rs=conn.execute("select dustbin from article where id="&aid)
           if rs("dustbin")=true then
                isDustbin=true
           end if
       rs.close
       set rs=nothing
end Function

%>
